10 REMB$="FRONT PIC    PIC":REM *AS
11 REMB$="BOOK COVER  MPIC":REM *AAS
12 B$="PI.AUTHORS":REM*BLAZ
14 REMB$="FDJAGUAR":REM*FLEX
16 GOSUB1068:REM DEFAULT COLORS
18 GOSUB1074:REM PRINT TEXT
20 GOSUB1012:REM LOAD PIC FILE
22 GOSUB1014:REM MOVE FILES *BLAZ
24 REMGOSUB1016:REM MOVE FILES *FLEX
26 GOSUB1018:REM MOVE PIC TO STBY
28 GOSUB1020:REM WAIT
30 GOSUB1024:REM SCREEN OFF
32 GOSUB1026:REM GO MULTI+HIRES
34 REMGOSUB1034:REM MOVE COLORS *AS*AAS
36 GOSUB1044:REM MOVE COLORS *BLAZ
38 REMGOSUB1054:REM MOVE COLORS *FLEX
40 REMGOSUB1056:REMMULTICOLROFF*FLEX*AS
42 GOSUB1058:GOSUB1060:REMSCRNONFADEIN
44 GOSUB1020:REM WAIT
46 REMGOSUB1062:REMMULTICOLORON*FLEX*AS
48 GOSUB1064:GOSUB1066:REM FADE+EXIT
50 REMB$="FRONT PIC    PIC":REM *AS
51 REMB$="BOOK COVER  MPIC":REM *AAS
52 REMB$="PI.AUTHORS":REM*BLAZ
54 B$="FDJAGUAR":REM*FLEX
56 GOSUB1068:REM DEFAULT COLORS
58 GOSUB1174:REM PRINT TEXT
60 GOSUB1012:REM LOAD PIC FILE
62 REMGOSUB1014:REM MOVE FILES *BLAZ
64 GOSUB1016:REM MOVE FILES *FLEX
66 GOSUB1018:REM MOVE PIC TO STBY
68 GOSUB1020:REM WAIT
70 GOSUB1024:REM SCREEN OFF
72 GOSUB1026:REM GO MULTI+HIRES
74 REMGOSUB1034:REM MOVE COLORS *AS*AAS
76 REMGOSUB1044:REM MOVE COLORS *BLAZ
78 GOSUB1054:REM MOVE COLORS *FLEX
80 GOSUB1056:REMMULTICOLROFF*FLEX*AS
82 GOSUB1058:GOSUB1060:REMSCRNONFADEIN
84 GOSUB1020:REM WAIT
86 GOSUB1062:REMMULTICOLORON*FLEX*AS
88 GOSUB1064:GOSUB1066:REM FADE+EXIT
1000 REM END MESSAGE
1002 PRINT"[147]":FORI=1TO10:PRINT:NEXT:PRINTSPC(10)"THAT'S ALL FOLKS!":END
1003 PRINTCHR$(147):FORI=1TO10:PRINT:NEXT:PRINTSPC(11)"LOADING DEMO PART 2"
1004 P$="DEMO PART 2"
1005 PRINT"":PRINT:PRINT:PRINT"LOAD";CHR$(34);P$;CHR$(34);",8":PRINT:PRINT
1006 PRINT:PRINT:PRINT"RUN":PRINTCHR$(19):POKE198,2:POKE631,13:POKE632,13:END
1009 REM ****************************
1010 REM ******* SUBROUTINES ********
1011 REM ****************************
1012 OPEN1,8,1,B$:POKE780,0:SYS65493:CLOSE1:RETURN
1014 SYS53000,40960,8192,10239,1:RETURN:REM MOVE BLAZING PADDLES PIC TO 8192
1016 SYS53000,24576,8192,8000,1:RETURN:REM MOVE FLEXIDRAW PIC TO 8192
1018 SYS53105,0:RETURN:REM FADE OUT
1020 GETA$:IFA$=CHR$(136)THENRETURN
1022 GOTO1020
1024 POKE53265,PEEK(53265)AND239:RETURN:REM SCREEN OFF
1026 POKE53272,PEEK(53272)OR8:REMHIRES
1028 POKE53265,PEEK(53265)OR32:REMHIRES
1030 POKE53270,PEEK(53270)OR16:REMMULTICOLOR ON
1032 RETURN
1034 SYS53000,16192,1024,1000,1
1036 SYS53000,17208,55296,1000,1
1038 POKE53280,PEEK(17192)
1040 POKE53281,PEEK(17193)
1042 RETURN
1044 SYS53000,16384,1024,1000,1
1046 SYS53000,17408,55296,1000,1
1048 POKE53280,PEEK(16255)AND15:REM BDR
1050 POKE53281,PEEK(16256):REM SCREEN
1052 RETURN
1054 SYS53000,23552,1024,1000,1:RETURN
1056 POKE53270,PEEK(53270)AND239:RETURN
1058 POKE53265,PEEK(53265)OR16:RETURN
1060 SYS53105,1:RETURN:REM FADE IN
1062 POKE53270,PEEK(53270)OR16:RETURN
1064 SYS53105,0:RETURN:REM FADE OUT
1066 PRINTCHR$(147):POKE56576,199:POKE53265,27:POKE53270,200:POKE53272,21
1068 PRINTCHR$(147):POKE53281,0:POKE53281,0:POKE646,14:RETURN:REM DEFAULT COLOR
1074 PRINT"":PRINT:POKE646,7
1075 PRINT "PAGE 3[146]":FORI=1TO3:PRINT:NEXT
1076 PRINT" THE FOLLOWING IS A PICTURE DRAWN USING"
1077 PRINTSPC(12)"BLAZING PADDLES"
1078 PRINT:PRINT"PAGE 3 TEXT GOES IN LINES 1074-1086
1079 [153]"IN DEMO PROGRAM 2.                  "
1080 [153]
1081 [153]"BE CREATIVE! LET YOUR IMAGINATION RUN
1082 PRINT"FREE & CREATE A COMPUTERIZED STORYBOOK!
1083 [153][166]15)"         "
1084 [153]"":[129]I[178]1[164]19:[153]:[130]
1085 [153][166]29)"          ":[153]
1086 [153]"AFTER THE DISK DRIVE LIGHT GOES OUT,    PRESS F7 TO CONTINUE.":[142]
1174 [153]"":[153]:[151]646,1
1175 [153]"PAGE 4WAIT":[129]I[178]1[164]3:[153]:[130]
1176 [153]" THE FOLLOWING IS A PICTURE DRAWN USING":[153]:[153]
1177 [153][166]12)"FLEXIDRAW 5.5  "
1178 [153]:[153]"PAGE 4 TEXT IS IN LINES 1174-1186
1179 PRINT"IN DEMO PROGRAM 2.                  "
1180 PRINTSPC(18)"  "
1181 PRINT"LIST THESE PROGRAMS AND LEARN HOW
1182 [153]"TO MAKE YOUR OWN STORYBOOK 64!
1183 PRINTSPC(15)"HAVE FUN!"
1184 PRINT"":FORI=1TO19:PRINT:NEXT
1185 PRINTSPC(29)"          ":PRINT
1186 PRINT"AFTER THE DISK DRIVE LIGHT GOES OUT,    PRESS F7 TO CONTINUE.":RETURN
9999 END
10000 A=PEEK(46)*256:B=PEEK(45):PRINT"BASIC PROGRAM EXTENDS TO";:PRINTA+B